home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / maths / mathgraph / !MathGraph / merge < prev    next >
Encoding:
Text File  |  1990-01-07  |  740 b   |  29 lines
  1.  
  2. “:
  3. fiÝ òdrag_save
  4. ¨#È− "Wimp_GetPointerInfo",,buff%
  5. ²)ç buff%!8=1 … persist%=¹ ⇧ persist%=£
  6. ¼"save_icon_buff%!0=save_handle%
  7. Æsave_icon_buff%!4=0
  8. Ð+È− "Wimp_GetIconState",,save_icon_buff%
  9. Úwindow_buff%!0=save_handle%
  10. ä)È− "Wimp_GetWindowInfo",,window_buff%
  11. îbuff%!0=save_handle%
  12. ø
  13. buff%!4=5
  14. 1window_height%=window_buff%!16-window_buff%!8
  15.  .minx%=(window_buff%!4)+(save_icon_buff%!8)
  16. >miny%=(window_buff%!8)+window_height%+(save_icon_buff%!12)
  17.  /maxx%=(window_buff%!4)+(save_icon_buff%!16)
  18. *>maxy%=(window_buff%!8)+window_height%+(save_icon_buff%!20)
  19. 4buff%!8=minx%
  20. >buff%!12=miny%
  21. Hbuff%!16=maxx%
  22. Rbuff%!20=maxy%
  23. \buff%!24=0
  24. fbuff%!28=0
  25. pbuff%!32=1280
  26. zbuff%!36=1024
  27. ☓È− "Wimp_DragBox",,buff%
  28. ‰á
  29. ÿ